home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh04a.d64 / listing 06.ki (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  847 b   |  31 lines
  1. 10 REM ********************************
  2. 11 REM *   SCHUELER - SIMULATION      *
  3. 12 REM * <C> 1986 BEI MICHAEL NICKLES *
  4. 13 REM ********************************
  5. 100 PRINT"[147][158]SCHUELER-SIMULATION[146]"
  6. 110 INPUT"ZUFALLSANTEIL";ZU
  7. 120 IFZU<0ORZU>100THEN110
  8. 130 PRINT"LOGIGANTEIL  :"100-ZU"%"
  9. 140 PRINT"ZUFALLSANTEIL:"ZU"%"
  10. 150 PRINT"BITTE EINE TASTE DRUECKEN!":POKE198,0:WAIT198,1
  11. 1000 REM AUFGABE STELLEN -------------------------------------------------------
  12. 1001 :
  13. 1010 A=INT(10*RND(1))+1
  14. 1020 B=INT(10*RND(1))+1
  15. 1030 PRINT"WIEVIEL IST"A"*"B"?   ";
  16. 2000 REM ANTWORT DES SCHUELERS -------------------------------------------------
  17. 2001 :
  18. 2010 X=INT(100*RND(1))+1
  19. 2020 IFX>ZU THEN2100:REM LOGISCHE ANTWORT
  20. 2030 IFX<=ZUTHEN2200:REM ZUFALLSANTWORT
  21. 2100 REM RICHTIGE ANTWORT ----------
  22. 2101 :
  23. 2110 C=A*B
  24. 2120 PRINTC
  25. 2130 POKE198,0:WAIT198,1:GOTO1000
  26. 2200 REM ZUFALLSANTWORT ------------
  27. 2201 :
  28. 2210 C=INT(100*RND(1))+1
  29. 2220 PRINTC
  30. 2230 POKE198,0:WAIT198,1:GOTO1000
  31.